home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)ub.d64 / cardco'pad.proc < prev    next >
Text File  |  2007-02-28  |  963b  |  59 lines
  1. 9000 // ╦EYPAD ╨ROC
  2. 9010 //
  3. 9020 // ╘HIS PROCEDURE ALLOWS YOU TO
  4. 9030 // READ A ├ARDCO ├ARDKEY ╬UMERIC
  5. 9040 // ╦EYPAD PLUGGED INTO EITHER
  6. 9050 // JOYSTICK PORT.
  7. 9060 //
  8. 9070 // ┼RIC ┼DWARD ╚AAS
  9. 9080 // 512 ╩AMESTOWN ├OURT
  10. 9090 // ┼DGEWOOD, ═─  21040
  11. 9100 //
  12. 9110 PROC KEYPAD(PORT,REF A$) CLOSED
  13. 9120 IF PORT=1 THEN
  14. 9130 N:=56321
  15. 9140 ELIF PORT=2 THEN
  16. 9150 N:=56320
  17. 9160 ELSE 
  18. 9170 PRINT "ILLEGAL PORT"
  19. 9180 END 
  20. 9190 ENDIF 
  21. 9200 Z:=PEEK(N) MOD 128
  22. 9210 CASE Z OF
  23. 9220 WHEN 96
  24. 9230 A$:=CHR$(13)
  25. 9240 WHEN 97
  26. 9250 A$:="."
  27. 9260 WHEN 98
  28. 9270 A$:="*"
  29. 9280 WHEN 99
  30. 9290 A$:="/"
  31. 9300 WHEN 100
  32. 9310 A$:="-"
  33. 9320 WHEN 101
  34. 9330 A$:="+"
  35. 9340 WHEN 102
  36. 9350 A$:="9"
  37. 9360 WHEN 103
  38. 9370 A$:="8"
  39. 9380 WHEN 104
  40. 9390 A$:="7"
  41. 9400 WHEN 105
  42. 9410 A$:="6"
  43. 9420 WHEN 106
  44. 9430 A$:="5"
  45. 9440 WHEN 107
  46. 9450 A$:="4"
  47. 9460 WHEN 108
  48. 9470 A$:="3"
  49. 9480 WHEN 109
  50. 9490 A$:="2"
  51. 9500 WHEN 110
  52. 9510 A$:="1"
  53. 9520 WHEN 111
  54. 9530 A$:="0"
  55. 9540 OTHERWISE 
  56. 9550 A$:=CHR$(0)
  57. 9560 ENDCASE 
  58. 9570 ENDPROC KEYPAD
  59.